
Module ModMain
    Public CurrentID As Int32 = 0
    'Public oSetting As New Settings1
    Public oSysSetting As New SystemSetting
    Public CurrentUser As String
    Public NetWorkUserID As String
    Public CurrentDB As String
    Public CurrentPC As String
    Public SystemFilter As Boolean = True


    Property ProgressBarUpdate()
        Get
            ProgressBarUpdate = frmMain.ToolStripProgressBar1.Value
            Application.DoEvents()
        End Get
        Set(ByVal value)
            frmMain.ToolStripProgressBar1.Value = value
        End Set
    End Property


    Property ProgressBarMaxValue()
        Get
            ProgressBarMaxValue = frmMain.ToolStripProgressBar1.Maximum
        End Get
        Set(ByVal value)
            frmMain.ToolStripProgressBar1.Maximum = value
        End Set
    End Property


End Module
